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c 



A(.illaes8y V Research 
A(preacrxptioa) ^ Clinical 
A(prescriptiQa) >2 A(treatmeat) 
A(treatoeat) > Public 
A(treatment) >: A(visit) 
A (treatment) > A(illaess) 
A(vi3it) >: Public 

Fi'^^rtr 7(a) 




A( illness) = Research 
A(pre»criptioE) = Clinical 
A(treatment) = Research 
A(vi3it) = Public 



Rg^rt: ?(b) 



A(patieat) X Public 
A(bill) ^ Financial 
lub{A(patient). A(bill)} > Admin 




PublicC 

^ Admin [ A(bill) = Admin A(bill) = Financial 

A(patieiit) = Public A(patieat) = Research 



=inanciai| 

P^Hf*: % (b> Pjurc % (c) 



Afdivisioa) Public 
lub{A(divx3ion). A(plan)} >: A(doctor) 
A(doctor) > Public 
Afdoctor) >: A(illness) 
A(illness) V A(divi8ion) 
A(illness} > Research 
A(plan) V Financial 




hi 



^7 (a) 



^ (b) 



A(division) = Public 
A (doctor) = Research 
A(iliness) = Research 
A(plan) = Admin 



Figure ^ 
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c; 



Algorithm 3.1 (Minimal Ciaa>iflcatiop Generation) 



MAIN 

For AeA do Constr[A] := 0; visUlA] := 0; done[A\ :~ FALSE 
For ie L do done[l] := TRUE; wnt[i] := 1 
For c^{lh$,rhs)'€ Cte«r do 

count (c) := 0 

For A € ths do 

Constr[A\ := Constr[A\U {c}\ count[cJ := coun£(cl + I 
Stack 0 
For 4 € A do 

If vi»ii[A\ = 6 then d&.vbit(>l) 
mocfoe := 0 

For i= l....,i-41 do scc(il:=<) 
Fbr A 6 >1 do vuit(A] 0 
While NOTEMPTY{5<odk) do 
A := POP(5iadk) 
U visUlA] = 0 then 

max.Joc := mar.jcc + I 

icc(mazL5cc| := (A) 

drsJ>ack.vi5tt(A) 
Ebr A € >l do A(A) := T; vi$ii{A] := 0 
compute^pper .bounds 
compute^artialJubs 
compute.mintmal-solution 

COMPUTE-UPPBR-BOUNDS 

t := 1 , . . . , mar.«oc do 
For A 6 5cc(t| do 

If vuafA) = 0 then upper.bound(A,t> 

^PER-BOUNDM, t) 
QuitlA] := I 

fbr c = (Ui5, rAj) e Can*tr\A\ do 

If count (c) > 0 then ooun((c] := count[c\ - 1 
If count (c) = 0 or rhj 6 5cc(i] then 
iewi/ia := X 

For A' € (Aj do /evl^ := <ev(ft5U A(A') 
If --{levlhs > \[rh$)) then 
If rhs € L then Fhli 
else A(r/ii) := A(r^) n leMs 
If r/u 6 scc[i| then 
upper -bound{r/i9, t) 

COMPUTE-MINIMAL-SOLUTION 
For t := max.scc, .... I do 
For A € scc{i] do 

done[A]:= TRUE; £ := X 
For c={lh9,rhs) € Conjtr[A| do 
If donelrha] then 
case \lhi\ of 

I: l:=lUX{rhs) 
>l: i := iu minlevel(A.c) 
else done[A|:=: FALSE 
If (fonefA|thenA(.4):=i 

else DSct := [f | f is a maximal level, A(A))^/' v f) 
While DSet 9^ 0 * 

Choose /" in DSet\ DSet := Z?5«£ - i'* 
Lower :=r try ,toJower(.4, <") 
If Lower / 0 then 

For (A'.r) € ^wcr do A(A') := /' 
DSet I* maximal level, X{A)yl' > t) 

doneiA] := TRUE 
For c kE Constr{A\ do 

j := count(c); /'/uMcjUl := A(A) U Piub[c\{j + I) 
counti'c) := countic] - I 



DFS-VISIT(A) 
vuit[A] := 1 

For rhi) € Con«tr(A] do 

If visit[rhs] = 0 then dfs.v Is it (rhs) 
PUSH(A«S£adb) 

DPS -B ACK-VISIT( A) 

/* IVaveisea the const rainu backward and inserts all 
attributes found in the same SCC list as A */ 
vitit[A] := 1 

For (/As, A) € C(,«<r do 
Ebr A' € JA« do 

If vitUlA'] = 0 then 

jcc[moz-<ocj concat«A'), joc(maxLjec]) 
d&.back.visit(AO 

COMPUTE-PARTIALJLUBS 

Fbr c^(th$irh$) 6 Ci^tt,*, do countfc] := 0; /'/u6(c|[0] := X 
For t := I, . . . , macscc do 
For A € reverse(jcc(tj) do 

Fbr c = {(/iSt rA«) € Con5tr[A) do 
Goun((c] := count[cj + I; j := count(c| 
fhiftfcjyi := Plu6(clU - 1} U A( A) 
For e^(lh$,rh$) € Ciow«r do j := count[c] + I; Pittfr(cl(jl '= ^ 

MINLEV£L(A.c) 

/* Returaa a minimal level for A that keepa e saUafied */ 
J := eouni[^\ {Ui»,rha) := c; lost := A(A) 
iubother9 := PM[c]\j - 1) U P/u6(cl[7 + 1) 
If /u6oeAer« V A(r^) then kut:^ X 
else 7Vv:={i | < is a maximal level s. t. Icatyl} 
While Try^ 0 do 

Choose I in TVy; Try := TVy - i 

If (i U lubothera) ^ A(r^) then 
f<M< := i; 7Vy:={< M is a maximal level s. t. Ia9t>-i} 
return iost 

TRY_TO-LOWER( A ,/) 
rochecJk := {(AJ)) 
Tolotaer := 0 
Repeat 

Choose ( A',/') 6 TocAedfe 
rocAoc* := TocAedk - {(A'./')} 
rotewer := Totower U{(A'J*)} 
For (fAs, rAf ) 6 Conjtr[A') do 
feud := X 
For A" 6 IA4 do 

If 3(A"»i") G Totetwr then 

level := /euelui" 
else /evd /evei U A(A") 
case done[rAs| of 

TRUE: It^ilevel y X{rhs)) then return 0 
FALSE: If ->[ievel ^ X{rh/)) then 
newlevei := A(r/t4) n 

If B{rh$,l") 6 (Tofourer u TocAecib) then 
If -^{newlevei > /") then 
newlevei := (" fl newlevei 
It {rhs, V*) 6 7V)/ot«er then 

Tolower := Tofowcr - {(rAs,/")} 
else Tocheck := TocAcc* - {{rhsj")} 
Tocheck := Tocheck u {{rhs, newlevei)) 
else Tocheck := TocAecA u ((rAj. nettf^evel)} 
until TocAecJiE = 0 
return Tolower 



Fitpire JO Algorithm for computing a minimal classification. 
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